home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / p063b9s.zip / MENURES.PAS < prev    next >
Pascal/Delphi Source File  |  1996-06-16  |  20KB  |  613 lines
  1. PROGRAM MenuRes;
  2. {╔══════════════════════════════════════════════════════════════════════════╗}
  3. {║ Creates menues in PORTAL.RES                  Last changed: 20.06.95  SA ║}
  4. {║                                                                          ║}
  5. {║                         (C) Copyright 1989-95 by                         ║}
  6. {║       Dan Wulff, Jens Sandalgaard, Steen Christensen & S¢ren Ager        ║}
  7. {║                                                                          ║}
  8. {║ This source may not be given to anybody, without the written permission  ║}
  9. {║ from The Portal Team.                                                    ║}
  10. {╚══════════════════════════════════════════════════════════════════════════╝}
  11. {$I POPDEFS.INC}
  12.  
  13. uses use32, oproot,opmenu,opwindow,oproutil,input,globals,opframe,opcmd,opcrt,opkey,
  14.      opselect,opstring,opfield,opedit,opfedit,nodelist,mailcfg,resource,Useredit,
  15.      PoPTypes;
  16.  
  17. const
  18.   Frame1         : FrameArray = '╔╚╗╝══║║';
  19.  
  20. var
  21.   m: TPoPmenu;
  22.   lib: Oplibrary;
  23.   status : word;
  24.  
  25. PROCEDURE PutMenu(Mnr:WORD);
  26. BEGIN
  27.   Lib.PutEntry('MNU'+LongIntForm('@@@',Mnr),m);
  28.   Status:=Lib.GetStatus;
  29.   IF Status<>0 THEN WriteLn('Error ',Status,' in MNU',LongIntForm('@@@',Mnr))
  30.                ELSE WriteLn('Writing MNU',LongIntForm('@@@',Mnr));
  31.   IF Lib.AvailableEntries=0 THEN
  32.   BEGIN
  33.     WRITELN('Directory full');
  34.     HALT;
  35.   END;
  36.   m.Done;
  37. END;
  38.  
  39.  
  40. {Menu item constants}
  41. const
  42.   miMail100       = 100;
  43.   miImmideate2    = 2;
  44.   miPoll3         = 3;
  45.   miScan4         = 4;
  46.   miGlue5         = 5;
  47.   miUnglue6       = 6;
  48.   miManagers101   = 101;
  49.   miOutbound8     = 8;
  50.   miArea9         = 9;
  51.   miNodelist10    = 10;
  52.   miDumbTerm11    = 11;
  53.   miUser12        = 12;
  54.   miMessage13     = 13;
  55.   miInformatio102 = 102;
  56.   miAbout16       = 16;
  57.   miWho17         = 17;
  58.   miOutbound18    = 18;
  59.   miMultiline19   = 19;
  60.   miSystem0       = 0;
  61.   miAction103     = 103;
  62.   miCompile21     = 21;
  63.   miFile22        = 22;
  64.   miGenerate23    = 23;
  65.   miMisc104       = 104;
  66.   miBlank25       = 25;
  67.   miLock26        = 26;
  68.   miShow27        = 27;
  69.   miUtils105      = 105;
  70.   miText14        = 14;
  71.   miCalculator78  = 78;
  72.   miCalendar79    = 79;
  73.   miQuick80       = 80;
  74.   miConfig106     = 106;
  75.   miMatrix1       = 1;
  76.   miModem2        = 2;
  77.   miDirectorie3   = 3;
  78.   miEvent6        = 6;
  79.   miConnection25  = 25;
  80.   miMail7         = 7;
  81.   miNetmail15     = 15;
  82.   miEcho16        = 16;
  83.   miRemapper17    = 17;
  84.   miSchedules18   = 18;
  85.   miConference19  = 19;
  86.   miMiscOption20  = 20;
  87. {  miNodelist10    = 10;}
  88.   miNodelist34    = 34;
  89.   miPhone29       = 29;
  90.   miMiscOption10  = 10;
  91.   miFile5         = 5;
  92.   miOKFile30      = 30;
  93.   miMiscOption31  = 31;
  94.   miNodes4        = 4;
  95.   miFile8         = 8;
  96.   miFiles21       = 21;
  97.   miMiscForwar22  = 22;
  98.   miTick32        = 32;
  99.   miMiscTick33    = 33;
  100.   miFunction11    = 11;
  101.   miArea26        = 26;
  102.   miTerminal9     = 9;
  103.   miExternal24    = 24;
  104.   miMiscOption23  = 23;
  105.   miPoPList35     = 35;
  106.   miDirectorie35  = 35;
  107.   miMiscOption36  = 36;
  108.   miMultiple27    = 27;
  109.   miArchiver28    = 28;
  110.   miScreen5       = 5;
  111.   miColor13       = 13;
  112.   miMiscOption14  = 14;
  113.   miGlobal12      = 12;
  114.   miMacros107     = 107;
  115.   miRecord70      = 70;
  116.   miEdit71        = 71;
  117.   miList72        = 72;
  118.   miActive73      = 73;
  119.   miDelete74      = 74;
  120.   miOne81         = 81;
  121.   miAll82         = 82;
  122.   miLoad75        = 75;
  123.   miSave76        = 76;
  124.   miQuit108       = 108;
  125.   miExit83        = 83;
  126.   miShell84       = 84;
  127.   miEditCostFile37 = 37;
  128.   miEditTemplate38 = 38;
  129.   miMultiListSetup39 = 39;
  130.  
  131. function ConfigMenu: Word;
  132.   {-Initialize menu system generated by MAKEMENU}
  133. const
  134.   {Frame constants}
  135.   Frame1 : FrameArray = '╒╘╕╛══││';
  136. begin
  137.   with M do begin
  138.     if not InitCustom(1, 1, 80, 1, Cfg.color[1],
  139.                       wClear+wUserContents+wCoversOnDemand,
  140.                       Horizontal) then begin
  141.       ConfigMenu := InitStatus;
  142.       Exit;
  143.     end;
  144.     mnOptionsOn(mnAlphaMatch+mnSelectOnMatch+mnArrowSelect+{mnPopOnSelect+}
  145.                 mnAllowPending{+mnAltMatch});
  146.     mnOptionsOff(mnAllowPending+mnUseItemForTopic+mnSelectOnClick);
  147.     AddItem(' ≡ ', 2, 1, 213);
  148.     AddItem(' Mail ', 5, 2, miMail100);
  149.       AddFramedSubMenu(6, 3, 29, 7, Vertical, Frame1);
  150.       AddShadow(shBR, shSeeThru);
  151.       AddItem('Immediate call   Alt+C', 1, 1, AltC);
  152.       AddItem('Poll             Alt+P', 2, 1, AltP);
  153.       AddItem('Scan matrix      Alt+Y', 3, 1, AltY);
  154.       AddItem('Glue node        -', 4, 1, Minus);
  155.       AddItem('Unglue node      +', 5, 1, Plus);
  156.       ItemsDone;
  157.     AddItem(' Manager ',11, 4, miManagers101);
  158.       AddFramedSubMenu(12, 3, 35, 9, Vertical, Frame1);
  159.       AddShadow(shBR, shSeeThru);
  160.       AddSeparator('├', '─', '┤', 4);
  161.       AddItem('Outbound         Alt+O', 1, 1, AltO);
  162.       AddItem('Area             Alt+A', 2, 1, AltA);
  163.       AddItem('Nodelist         Alt+N', 3, 1, AltN);
  164.       AddItem('DumbTerm         Alt+D', 5, 1, AltD);
  165.       AddItem('User browser     Alt+U', 6, 1, AltU);
  166.       AddItem('Message editor   Alt+E', 7, 1, AltE);
  167.       ItemsDone;
  168.     AddItem(' Info ', 20, 2, miInformatio102);
  169.       AddFramedSubMenu(21, 3, 46, 7, Vertical, Frame1);
  170.       AddShadow(shBR, shSeeThru);
  171.       AddItem('About today        F9', 1, 1, F9);
  172.       AddItem('Who is node        Alt+W', 2, 1, AltW);
  173.       AddItem('Outbound info      Alt+I', 3, 1, AltI);
  174.       AddItem('Multiline status   Alt+S', 4, 1, AltS);
  175.       AddItem('System info        Alt+G', 5, 1, AltG);
  176.       ItemsDone;
  177.     AddItem(' Action ', 26, 2, miAction103);
  178.       AddFramedSubMenu(27, 3, 53, 13, Vertical, Frame1);
  179.       AddShadow(shBR, shSeeThru);
  180.       AddSeparator('├', '─', '┤', 5);
  181.       AddSeparator('├', '─', '┤', 8);
  182.       AddItem('Run mailscanner     Alt+M', 1, 5, AltM);
  183.       AddItem('Compile nodelist    Alt+V', 2, 1, AltV);
  184.       AddItem('File forward        Alt+Z', 3, 1, AltZ);
  185.       AddItem('Generate filelist   Alt+Q', 4, 1, AltQ);
  186.       AddItem('Rescan outbound', 6, 1, 200);
  187.       AddItem('Pack Msg.base',7,1,216);
  188.       AddItem('Init modem', 9, 1, 210);
  189.       AddItem('Answer modem', 10, 1, 211);
  190.       AddItem('Send busy string', 11, 6, 212);
  191.       ItemsDone;
  192.     AddItem(' Misc ', 34, 4, miMisc104);
  193.       AddFramedSubMenu(35, 3, 62, 7, Vertical, Frame1);
  194.       AddShadow(shBR, shSeeThru);
  195.       AddItem('Blank screen         Alt+B', 1, 1, AltB);
  196.       AddItem('Lock keyboard        Alt+L', 2, 1, AltL);
  197.       AddItem('Show function keys   Alt+F', 3, 1, AltF);
  198.       AddItem('Export setup', 4, 1, 214);
  199.       AddItem('Import setup', 5, 1, 215);
  200.       ItemsDone;
  201.     AddItem(' Util ', 40, 2, miUtils105);
  202.       AddFramedSubMenu(41, 3, 61, 6, Vertical, Frame1);
  203.       AddShadow(shBR, shSeeThru);
  204.       AddItem('Text editor   Alt+T', 1, 1, AltT);
  205.       AddItem('Calendar      Alt+1', 2, 1, Alt1);
  206.       AddItem('Calculator    Alt+2', 3, 2, Alt2);
  207.       AddItem('Quick ref.    Alt+3', 4, 1, Alt3);
  208.       ItemsDone;
  209.     AddItem(' Config ', 46, 2, miConfig106);
  210.       AddFramedSubMenu(47, 3, 69, 22, Vertical, Frame1);
  211.       AddShadow(shBR, shSeeThru);
  212.       AddItem('Matrix options', 1, 6, miMatrix1);
  213.       AddItem('Modem setup         '^P, 2, 2, miModem2);
  214.         AddFramedSubMenu(49, 6, 66, 8, Vertical, Frame1);
  215.         AddShadow(shBR, shSeeThru);
  216.         AddItem('Standard options', 1, 1, 2);
  217.         AddItem('Advanced options', 2, 1, 5);
  218.         AddItem('Connect stat.   ', 3, 1, 7);
  219.         ItemsDone;
  220.       AddItem('Directories & files', 3, 1, miDirectorie3);
  221.       AddItem('Event manager', 4, 1, miEvent6);
  222.       AddItem('Connection setup', 5, 1, miConnection25);
  223.       AddItem('Mail scanner        '^P, 6, 1, miMail7);
  224.         AddFramedSubMenu(49, 10, 63, 14, Vertical, Frame1);
  225.         AddShadow(shBR, shSeeThru);
  226.         AddItem('Netmail', 1, 1, miNetmail15);
  227.         AddItem('Echo mail', 2, 1, miEcho16);
  228. {        AddItem('Remapper', 3, 1, miRemapper17);}
  229.         AddItem('Schedules', 3, 1, miSchedules18);
  230.         AddItem('Conferences', 4, 1, miConference19);
  231.         AddItem('Misc. options', 5, 1, miMiscOption20);
  232.         ItemsDone;
  233.       AddItem('Nodelist compiler   '^P, 7, 5, miNodelist10);
  234.         AddFramedSubMenu(49, 11, 68, 14, Vertical, Frame1);
  235.         AddShadow(shBR, shSeeThru);
  236.         AddItem('Nodelist segments', 1, 1, miNodelist34);
  237.         AddItem('Phone translations', 2, 1, miPhone29);
  238.         AddItem('Misc. options', 3, 1, miMiscOption10);
  239.         AddItem('Edit cost file', 4, 1, miEditCostFile37);
  240.         ItemsDone;
  241.       AddItem('File request        '^P, 8, 8, miFile5);
  242.         AddFramedSubMenu(49, 12, 63, 13, Vertical, Frame1);
  243.         AddShadow(shBR, shSeeThru);
  244.         AddItem('OK-File', 1, 1, miOKFile30);
  245.         AddItem('Misc. options', 2, 1, miMiscOption31);
  246.         ItemsDone;
  247.       AddItem('Nodes setup', 9, 1, miNodes4);
  248.       AddItem('File forward        '^P, 10, 1, miFile8);
  249.         AddFramedSubMenu(49, 14, 71, 17, Vertical, Frame1);
  250.         AddShadow(shBR, shSeeThru);
  251.         AddItem('Files to forward', 1, 1, miFiles21);
  252.         AddItem('Misc. forward options', 2, 1, miMiscForwar22);
  253.         AddItem('Tick areas', 3, 1, miTick32);
  254.         AddItem('Misc. tick options', 4, 12, miMiscTick33);
  255.         ItemsDone;
  256.       AddItem('Function keys', 11, 2, miFunction11);
  257.       AddItem('Area manager', 12, 2, miArea26);
  258.       AddItem('Terminal setup      '^P, 13, 1, miTerminal9);
  259.         AddFramedSubMenu(49, 17, 68, 18, Vertical, Frame1);
  260.         AddShadow(shBR, shSeeThru);
  261.         AddItem('External protocols', 1, 1, miExternal24);
  262.         AddItem('Misc. options', 2, 1, miMiscOption23);
  263.         ItemsDone;
  264.       AddItem('PoP-List setup      '^P, 14, 6, miPoPList35);
  265.         AddFramedSubMenu(49, 18, 69, 20, Vertical, Frame1);
  266.         AddShadow(shBR, shSeeThru);
  267.         AddItem('Directories & files', 1, 1, miDirectorie35);
  268.         AddItem('Misc. options', 2, 1, miMiscOption36);
  269.         AddItem('Multi List Segments', 3, 7, miMultiListSetup39);
  270.         ItemsDone;
  271.       AddItem('Multiple BBS setup', 15, 6, miMultiple27);
  272.       AddItem('Archiver setup', 16, 4, miArchiver28);
  273.       AddItem('Screen & colors     '^P, 17, 1, miScreen5);
  274.         AddFramedSubMenu(49, 21, 67, 24, Vertical, Frame1);
  275.         AddShadow(shBR, shSeeThru);
  276.         AddItem('Color setup', 1, 1, miColor13);
  277.         AddItem('Load color scheme', 2, 1, 8);
  278.         AddItem('Save color scheme', 3, 1, 9);
  279.         AddItem('Misc. options', 4, 1, miMiscOption14);
  280.         ItemsDone;
  281.       AddItem('Inbound control', 18, 3, 17);
  282.       AddItem('Global values', 19, 1, miGlobal12);
  283.       AddItem('Edit template', 20, 11, miEditTemplate38);
  284.       ItemsDone;
  285.     AddItem(' Macro ', 54, 6, miMacros107);
  286.       AddFramedSubMenu(55, 3, 68, 9, Vertical, Frame1);
  287.       AddShadow(shBR, shSeeThru);
  288.       AddItem('Record', 1, 1, 90);
  289.       AddItem('Edit', 2, 1, 91);
  290.       AddItem('List', 3, 2, 92);
  291.       AddItem('Active   Yes', 4, 1, 93);
  292.       AddItem('Delete     '^P, 5, 1, 94);
  293.         AddFramedSubMenu(57, 9, 61, 10, Vertical, Frame1);
  294.         AddShadow(shBR, shSeeThru);
  295.         AddItem('One', 1, 1, 94);
  296.         AddItem('All', 2, 1, 95);
  297.         ItemsDone;
  298.       AddItem('Load', 6, 1, 96);
  299.       AddItem('Save', 7, 1, 97);
  300.       ItemsDone;
  301.     AddItem(' Quit ', 61, 2, miQuit108);
  302.       AddFramedSubMenu(62, 3, 76, 4, Vertical, Frame1);
  303.       AddShadow(shBR, shSeeThru);
  304.       AddItem('Exit    Alt+X', 1, 1, AltX);
  305.       AddItem('Shell   Alt+J', 2, 1, AltJ);
  306.       ItemsDone;
  307.     ItemsDone;
  308.  
  309.     ConfigMenu := RawError;
  310.   end;
  311. end;
  312.  
  313.  
  314. PROCEDURE EventFlagsMenu;
  315. BEGIN
  316.   WITH m DO
  317.   BEGIN
  318.     InitCustom(29,7,52,21,Cfg.Color[3],wBordered+wClear+wUserContents+wCoversOnDemand,Vertical);
  319.     m.WFrame.AddHeader(' Event flags ',heTC);
  320.     AddShadow(shBR, shSeeThru);
  321.     AddItem('Forced         :',1,1,1);
  322.     AddItem('Request Ok.    :',2,1,2);
  323.     AddItem('User / Mail    :',3,1,3);
  324.     AddItem('Receive only   :',4,5,4);
  325.     AddItem('CM-only        :',5,1,5);
  326.     AddItem('No-send        :',6,1,6);
  327.     AddItem('Dynamic        :',7,1,7);
  328.     AddItem('Clear Outbound :',8,7,8);
  329.     AddItem('No answer      :',9,4,9);
  330.     AddItem('Once only      :',10,8,10);
  331.     AddItem('PoP-List       :',11,1,11);
  332.     AddItem('Toss mail      :',12,1,12);
  333.     AddItem('Scan new mail  :',13,1,13);
  334.     AddItem('Pack mail      :',14,4,14);
  335.     AddItem('Don''t send fls :',15,8,15);
  336.     ItemsDone;
  337.   END;
  338. END;
  339.  
  340. PROCEDURE DialDirMenu;
  341. BEGIN
  342.   WITH m DO
  343.   BEGIN
  344.     InitCustom(2,23,79,23,Cfg.Color[3],wBordered+wClear+wUserContents+wCoversOnDemand,Horizontal);
  345.     MenuCommands.AddCommand(ccUser1,1,Word(256 * 73),0);
  346.     MenuCommands.AddCommand(ccUser2,1,Word(256 * 81),0);
  347.     AddItem('Dial',2,1,1);
  348.     AddItem('Edit',11,1,2);
  349.     AddItem('Find',19,1,3);
  350.     AddItem('Add',27,1,4);
  351.     AddItem('Remove',34,1,5);
  352.     AddItem('Print',45,1,6);
  353.     AddItem('Sort',53,1,7);
  354.     AddItem('List',60,1,8);
  355.     ItemsDone;
  356.   END;
  357. END;
  358.  
  359. PROCEDURE AInsertMenu;
  360. BEGIN
  361.   WITH m DO
  362.   BEGIN
  363.     m.init(29,8,49,9,3,'Insert line');
  364.     AddItem('Before this line',1,1,1);
  365.     AddItem('After this line',2,1,2);
  366.     ItemsDone;
  367.   END;
  368. END;
  369.  
  370. PROCEDURE AMoveMenu;
  371. BEGIN
  372.   WITH m DO
  373.   BEGIN
  374.     m.init(30,8,51,12,3,'Move File');
  375.     AddItem('Other Area (Move)',1,1,1);
  376.     AddItem('To Disk (Move)',2,1,2);
  377.     AddItem('Other Area (Copy)',3,7,3);
  378.     AddItem('To Disk (Copy)',4,4,4);
  379.     AddItem('Same Area',5,1,5);
  380.     ItemsDone;
  381.   END;
  382. END;
  383.  
  384. PROCEDURE AGlobalCmdMenu;
  385. BEGIN
  386.   WITH m DO
  387.   BEGIN
  388.     m.init(10,8,40,13,3,'Global functions');
  389.     AddItem('Adopt orphan files',1,1,1);
  390.     AddItem('Touch files',2,1,2);
  391.     AddItem('Delete download counters',3,1,3);
  392.     AddItem('Reset download counters',4,1,4);
  393.     AddItem('Insert download counters',5,1,5);
  394.     AddItem('Reallign download counters',6,2,6);
  395.     ItemsDone;
  396.   END;
  397. END;
  398.  
  399. procedure ACopyErrorMenu;
  400. begin
  401.   WITH m DO
  402.   BEGIN
  403.     m.init(25,8,57,10,3,'');
  404.     AddItem('Retry current file',1,1,1);
  405.     AddItem('Abort operation',2,1,2);
  406.     AddItem('Skip this file',3,1,3);
  407.     ItemsDone;
  408.   END;
  409. end;
  410.  
  411. PROCEDURE SelectMailType;
  412. BEGIN
  413.   WITH m DO
  414.   BEGIN
  415.     m.init(32,9,45,13,3,'Send as');
  416.     AddItem('Hold', 1, 1, 1);
  417.     AddItem('Direct', 2, 1, 2);
  418.     AddItem('Normal', 3, 1, 3);
  419.     AddItem('Crash', 4, 1, 4);
  420.     AddItem('Important', 5, 1, 5);
  421.     ItemsDone;
  422.   END;
  423. END;
  424.  
  425. PROCEDURE GlobalCmdMenu;
  426. BEGIN
  427.   m.init(32,9,53,10,3,'Global Commands');
  428.   WITH m DO
  429.   BEGIN
  430.     AddItem('Clean Outbound', 1, 7, 1);
  431.     AddItem('Clear Undialables', 2, 7, 2);
  432.     ItemsDone;
  433.   END;
  434. END;
  435.  
  436. PROCEDURE GetUpdateType;
  437. BEGIN
  438.   WITH m DO
  439.   BEGIN
  440.     m.init(32,9,51,10,3,'Request type');
  441.     AddItem('Update Request ', 1, 1, 1);
  442.     AddItem('Olddate Request', 2, 1, 2);
  443.     ItemsDone;
  444.   END;
  445. END;
  446.  
  447. PROCEDURE SelectSendType;
  448. BEGIN
  449.   WITH m DO
  450.   BEGIN
  451.     m.init(32,9,44,11,3,'Do after');
  452.     AddItem('Nothing ', 1, 1, 1);
  453.     AddItem('Delete  ', 2, 1, 2);
  454.     AddItem('Truncate', 3, 1, 3);
  455.     ItemsDone;
  456.   END;
  457. END;
  458.  
  459. PROCEDURE TermEmulMenu;
  460. BEGIN
  461.   WITH m DO
  462.   BEGIN
  463.     m.init(2,3,14,5,3,'Emulation');
  464.     AddItem('AUTOMODE',1,2,1);
  465.     AddItem('ANSI-BBS',2,1,2);
  466.     AddItem('AVATAR',3,2,3);
  467.     ItemsDone;
  468.   END;
  469. END;
  470.  
  471. PROCEDURE MacroMenu;
  472. BEGIN
  473.   WITH m DO
  474.   BEGIN
  475.     m.init(35,11,45,17,2,'Macros');
  476.     AddItem('Record', 1, 1, 1);
  477.     AddItem('Edit', 2, 1, 2);
  478.     AddItem('List', 3, 1, 3);
  479.     AddItem('Toggle', 4, 1, 4);
  480.     AddFramedSubMenu(38, 13, 43, 14, Vertical, Frame1);
  481.     WFrame.AddShadow(shBR,shSeeThru);
  482.     AddItem('On', 1, 1, 8);
  483.     AddItem('Off', 2, 1, 9);
  484.     ItemsDone;
  485.     AddItem('Delete', 5, 1, 5);
  486.     AddFramedSubMenu(38, 14, 45, 15, Vertical, Frame1);
  487.     WFrame.AddShadow(shBR,shSeeThru);
  488.     AddItem('One', 1, 1, 10);
  489.     AddItem('All', 2, 1, 11);
  490.     ItemsDone;
  491.     AddItem('Load', 6, 1, 6);
  492.     AddItem('Save', 7, 1, 7);
  493.     ItemsDone;
  494.   END;
  495. END;
  496.  
  497. PROCEDURE InitNlMenu;
  498. BEGIN
  499.   WITH m DO
  500.   BEGIN
  501.     m.init(29,7,49,8,3,'Insert node');
  502.     AddItem('Before this node',1,1,1);
  503.     AddItem('After this node',2,1,2);
  504.     ItemsDone;
  505.   END;
  506. END;
  507.  
  508. PROCEDURE InitUEMaxFlagsMenu;
  509. BEGIN
  510.   WITH m DO
  511.   BEGIN
  512.     InitCustom(29,8,52,19,Cfg.Color[3],wBordered+wClear+wUserContents+wCoversOnDemand,Vertical);
  513.     m.WFrame.AddHeader(' Maximus flags ',heTC);
  514.     AddShadow(shBR, shSeeThru);
  515.     AddItem('FS Editor      :',1,4,1);
  516.     AddItem('FS Reader      :',2,4,2);
  517.     AddItem('HotKeys        :',3,1,3);
  518.     AddItem('IBM Chars      :',4,1,4);
  519.     AddItem('More Prompt    :',5,1,5);
  520.     AddItem('Use Tabs       :',6,5,6);
  521.     AddItem('User List      :',7,6,7);
  522.     AddItem('Chat Avail     :',8,1,8);
  523.     AddItem('Used Max       :',9,8,9);
  524.     AddItem('Bad Logon      :',10,1,10);
  525.     AddItem('Clear Screen   :',11,4,11);
  526.     AddItem('Nerd User      :',12,4,12);
  527.     ItemsDone;
  528.   END;
  529. END;
  530.  
  531. PROCEDURE InitUEQBBSFlagsMenu;
  532. BEGIN
  533.   WITH m DO
  534.   BEGIN
  535.     InitCustom(24,9,50,15,Cfg.Color[4],wClear+wUserContents+wCoversOnDemand,Vertical);
  536.     AddItem('DELETED                  :',1,1,1);
  537.     AddItem('Send ScreenClear Codes   :',2,1,2);
  538.     AddItem('Use MORE-Prompt          :',3,5,3);
  539.     AddItem('Use ANSI-Emulation       :',4,5,4);
  540.     AddItem('No-Kill                  :',5,1,5);
  541.     AddItem('Ignore Download Hours    :',6,1,6);
  542.     AddItem('Ansi FullScreen Editor   :',7,6,7);
  543.     ItemsDone;
  544.   END;
  545. END;
  546.  
  547. PROCEDURE InitUEOPUS110FlagsMenu;
  548. BEGIN
  549.   WITH m DO
  550.   BEGIN
  551.     InitCustom(24,8,50,16,Cfg.Color[4],wClear+wUserContents+wCoversOnDemand,Vertical);
  552.     AddItem('Use IBM Chars            :',1,5,1);
  553.     AddItem('Use OPED (FullScrnEd.)   :',2,5,2);
  554.     AddItem('Use MORE-prompt          :',3,5,3);
  555.     AddItem('Use ANSI/AVATAR/ASCII    :',4,5,4);
  556.     AddItem('Ask CONFIGURATION        :',5,2,5);
  557.     AddItem('Send FormFeed-chars      :',6,6,6);
  558.     AddItem('Show NAME in userlist    :',7,6,7);
  559.     AddItem('Show TIME in userlist    :',8,6,8);
  560.     AddItem('Show CITY in userlist    :',9,6,9);
  561.     ItemsDone;
  562.   END;
  563. END;
  564.  
  565. PROCEDURE InitNlSearchOptMenu;
  566. BEGIN
  567.   WITH m DO
  568.   BEGIN
  569.     m.init(30,10,45,13,3,'Search by');
  570.     AddItem('Address',1,1,1);
  571.     AddItem('System Name',2,1,2);
  572.     AddItem('Misc. Info',3,1,3);
  573.     AddItem('SysOp Name',4,7,4);
  574.     ItemsDone;
  575.   END;
  576. END;
  577.  
  578. BEGIN
  579.   cfg.color[1]:=defaultcolorset;
  580.   cfg.color[2]:=defaultcolorset;
  581.   cfg.color[3]:=defaultcolorset;
  582.   cfg.color[4]:=defaultcolorset;
  583.   if not Lib.Init(PoPResourceFileName,SOpen,10240,'POP-RES') then
  584.     Lib.Create(PoPResourceFileName,10240,'POP-RES',2048);
  585.   Lib.RegisterHier(TPoPMenuStream);
  586.  
  587.   Lib.DeleteEntry('MNU012');
  588.   Status:=Lib.GetStatus;
  589.  
  590.   ConfigMenu;             PutMenu(MNUMain);
  591.   EventFlagsMenu;         PutMenu(MNUEventFlags);
  592.   DialDirMenu;            PutMenu(MNUDTDialDir);
  593.   AInsertMenu;            PutMenu(MNUAMInsertLine);
  594.   AMoveMenu;              PutMenu(MNUAMMoveFile);
  595.   AGlobalCmdMenu;         PutMenu(MNUAMGlobalFunc);
  596.   ACopyErrorMenu;         PutMenu(MNUCopyFileError);
  597.   SelectMailType;         PutMenu(MNUOMSelMailType);
  598.   GlobalCmdMenu;          PutMenu(MNUOMGlobalCmd);
  599.   GetUpdateType;          PutMenu(MNUOMGetUpdType);
  600.   SelectSendType;         PutMenu(MNUOMSelSendAs);
  601.   TermEmulMenu;           PutMenu(MNUDTEmulation);
  602. { MacroMenu;              PutMenu(MNUMacros);}
  603.   InitNlMenu;             PutMenu(MNUNLInsNode);
  604.   InitUEQBBSFlagsMenu;    PutMenu(MNUUEQBbsFlags);
  605.   InitUEMaxFlagsMenu;     PutMenu(MNUUEMaxFlags);
  606.   InitUEOPUS110FlagsMenu; PutMenu(MNUUEOPUS110Flags);
  607.   InitNlSearchOptMenu;    PutMenu(MNUNlSearchOpt);
  608.  
  609.   WriteLn(Lib.GetStatus);
  610.   Lib.Pack;
  611.   Lib.Done;
  612. end.
  613.